home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 94 / 64er_Magazin_Sonderheft_94_19xx_Markt__Technik_de_Side_A.d64 / turtle-demo 3 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  317 b   |  17 lines
  1. 1 rem turtle-demo: 'blume'
  2. 2 rem n. heusler 11.91
  3. 3 :
  4. 10 sys49152
  5. 20 input"iterationsgrad   4[157][157][157]";le
  6. 25 input"versatzwinkel   80[157][157][157][157]";su
  7. 30 !graphics:!init:!pen0:!move140,120:!pen1
  8. 40 gosub100
  9. 50 !finish
  10. 60 :
  11. 100 ifle=0thenreturn
  12. 110 fori=1to4
  13. 120 !walk10*le:!turnlsu:!pushi,le:le=le-1:gosub100:!pullle,i
  14. 130 !turnr90+su
  15. 140 next
  16. 150 return
  17.